home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / apps / astronmy / strchart.arc / patch.arc / starchrt.dif < prev    next >
Text File  |  1989-03-23  |  6KB  |  189 lines
  1. *** ../starchart/starchart.c    Mon Sep 19 09:12:20 1988
  2. --- starchrt.c    Mon Sep 26 23:50:39 1988
  3. ***************
  4. *** 58,72 ****
  5. --- 58,87 ----
  6.    ![11] the -g flag sets a mag limit for star proper names, else use codes
  7.    */
  8.   
  9. + #ifdef ST_MWC /* Mark Williams C for the Atari ST */
  10. + #define SYSV /* MWC is almost SYSV compatible */
  11. + #endif /* ST_MWC */
  12. + 
  13.   #include <stdio.h>
  14.   #include <math.h>
  15.   #ifndef SYSV
  16.   #include <strings.h>
  17.   #else
  18. + #define index strchr
  19. + #ifndef SYSVR3 /* System V release 3 doesn't have this header file */
  20. + #ifndef ST_MWC
  21.   #include <string.h>
  22. + #else /* ST_MWC */
  23. + char *strchr();
  24. + #endif /* ST_MWC */
  25. + #endif /* SYSVR3 */
  26.   #endif
  27.   #include <ctype.h>
  28. + #ifndef ST_MWC
  29.   #include "starchart.h"
  30. + #else /* ST_MWC */
  31. + #include "starchrt.h"
  32. + #endif /* ST_MWC */
  33.   
  34.   /*
  35.    * default datasets are local, unless defined in Makefile
  36. ***************
  37. *** 122,127 ****
  38. --- 137,149 ----
  39.   int annodetail, objdetail;    /* flags to control output */
  40.   int annoswitch, objswitch;    /* switches as seen on command line */
  41.   float olat, olon;        /* save areas for track clipping */        
  42. + #ifdef ST_MWC
  43. + #ifdef INTERACTIVE
  44. + extern int oldrez; /* Used to see if we've initialized the screen. */
  45. + int exit_and_save = FALSE; /* Don't wait for keypress when done, save file */
  46. + char picturefile[15]; /* into "picturefile" (def = star.pi1) and exit */
  47. + #endif /* INTERACTIVE */
  48. + #endif /* ST_MWC */
  49.   
  50.   /* the code */
  51.   
  52. ***************
  53. *** 253,258 ****
  54. --- 275,297 ----
  55.           case 'b': bigflag = TRUE; break;
  56.           case 'a': annoswitch = TRUE; break;
  57.           case 'o': objswitch = TRUE; break;
  58. + #ifdef ST_MWC
  59. + #ifdef INTERACTIVE
  60. +                 /* Exit immediately, saving the picture in a DEGAS or
  61. +                    NeoChrome file (Chosen by .pi1 or .neo extender */
  62. +         case 'x': exit_and_save = TRUE;
  63. +                   if (((j+1) < argc) && (argv[j+1][0] != '-'))
  64. +                                strcpy(picturefile, argv[++j]);
  65. +                           else
  66. +                                strcpy(picturefile, "star.pi1");
  67. +                           break;
  68. + #else /* !INTERACTIVE */
  69. +                 /* Help for the GEM Desktop, which cannot redirect. */
  70. +         case 'x': if (((j+1) < argc) && (argv[j+1][0] != '-'))
  71. +                           freopen(argv[++j], "wb", stdout);
  72. +                           break;
  73. + #endif /* INTERACTIVE */
  74. + #endif /* ST_MWC */
  75.           default:  die("unknown switch - %s", argv[j]); break;
  76.           }
  77.           if (j == argc) die("trailing command line flag - %s", argv[j-1]);
  78. ***************
  79. *** 373,379 ****
  80. --- 412,426 ----
  81.       if (!title) title = "LEGEND";
  82.       rastr(ras, chart->racen);
  83.       declstr(dls, chart->dlcen);
  84. + #ifdef ST_MWC
  85. + #ifdef INTERACTIVE /* This bleeds over into the thumbnail, so trim it */
  86. +     sprintf(outstr, "(%s,%s)", ras, dls, chart->maglim);
  87. + #else /* !INTERACTIVE */
  88.       sprintf(outstr, "(%s,%s lim: %2.1f)", ras, dls, chart->maglim);
  89. + #endif /* INTERACTIVE */
  90. + #else /* !ST_MWC */
  91. +     sprintf(outstr, "(%s,%s lim: %2.1f)", ras, dls, chart->maglim);
  92. + #endif /* ST_MWC */
  93.   /*
  94.    * there are reports that large point sizes (eg "16", below) cause characters
  95.    * to overlap on some (pic?) output devices. To fix, set values to "10".
  96. ***************
  97. *** 417,422 ****
  98. --- 464,481 ----
  99.   
  100.       pvecsize(10); pvecsyms( 95,75,"double");   pdrawStar( 65,75, 2, 'D', NULL);
  101.       pvecsize(10); pvecsyms(260,75,"variable"); pdrawStar(230,75, 2, 'V', NULL);
  102. + #ifdef ST_MWC
  103. + #ifdef INTERACTIVE /* Adjust the legend so symbols don't overlap labels */
  104. +     pvecsize(10); pvecsyms( 95,50,"planet");   pdrawPlan( 75,50, 1, 'S', NULL);
  105. +                            pdrawPlan( 55,50, 1, 's', NULL);
  106. +                            pdrawPlan( 35,50, 1, 'V', NULL);
  107. +     pvecsize(10); pvecsyms(260,50,"galaxy");   pdrawGalx(240,50, 1, 'E', NULL);
  108. +                            pdrawGalx(215,50, 1, 'S', NULL);
  109. +     pvecsize(10); pvecsyms( 95,25,"nebula");   pdrawNebu( 75,25, 1, 'D', NULL);
  110. +                            pdrawNebu( 45,25, 1, 'P', NULL);
  111. +     pvecsize(10); pvecsyms(260,25,"cluster");  pdrawClus(240,25, 1, 'O', NULL);
  112. +                            pdrawClus(215,25, 1, 'G', NULL);
  113. + #else /* !INTERACTIVE */
  114.       pvecsize(10); pvecsyms( 95,50,"planet");   pdrawPlan( 65,50, 1, 'S', NULL);
  115.       pvecsize(10); pvecsyms(260,50,"galaxy");   pdrawGalx(230,50, 1, 'E', NULL);
  116.                              pdrawGalx(205,50, 1, 'S', NULL);
  117. ***************
  118. *** 424,429 ****
  119. --- 483,490 ----
  120.                              pdrawNebu( 40,25, 1, 'P', NULL);
  121.       pvecsize(10); pvecsyms(260,25,"cluster");  pdrawClus(230,25, 1, 'O', NULL);
  122.                              pdrawClus(205,25, 1, 'G', NULL);
  123. + #endif /* INTERACTIVE */
  124. + #endif /* ST_MWC */
  125.       }
  126.   
  127.   chartbanner(chart)
  128. ***************
  129. *** 495,501 ****
  130.       if (sbuf[11] != 0)
  131.       code[0] = sbuf[15];
  132.       subcode[0] = sbuf[16];
  133. !     color [0] = '\0'; strcpy (color, "  "); /* set unknowns to blanks */
  134.       label [0] = '\0';
  135.       name [0] = '\0'; strncat (name, &sbuf[17], strlen (&sbuf [17]) - 1);
  136.       }
  137. --- 556,562 ----
  138.       if (sbuf[11] != 0)
  139.       code[0] = sbuf[15];
  140.       subcode[0] = sbuf[16];
  141. !     strcpy(color, "  "); /* set unknowns to blanks */
  142.       label [0] = '\0';
  143.       name [0] = '\0'; strncat (name, &sbuf[17], strlen (&sbuf [17]) - 1);
  144.       }
  145. ***************
  146. *** 554,566 ****
  147. --- 615,635 ----
  148.   /*
  149.    * extract color, label and name
  150.    */
  151. + #ifdef ST_MWC
  152. +                 len = strlen(sbuf);
  153. +                 if (len > 16)
  154. + #endif /* ST_MWC */
  155.           strncat (color, &sbuf[16], 2);
  156. + #ifdef ST_MWC
  157. +                 if (len > 18)
  158. + #endif /* ST_MWC */
  159.           strncat (label, &sbuf[18], strlen (&sbuf [18]) - 1);
  160.           if  ((len = strlen (label)) > 5)
  161.               {
  162.               strncat (name, &label[5], len - 5);
  163.               label [5] = '\0';
  164.               }
  165. +                 break;
  166.           }
  167.       }
  168.       return(0);
  169. ***************
  170. *** 896,901 ****
  171. --- 965,971 ----
  172.       return (new -= b);
  173.       }
  174.   
  175. + #ifndef INTERACTIVE
  176.   die(a,b)
  177.       char *a, *b;
  178.       {
  179. ***************
  180. *** 904,909 ****
  181. --- 974,980 ----
  182.       fprintf(stderr,"\n");
  183.       exit(1);
  184.       }
  185. + #endif /* !INTERACTIVE */
  186.   
  187.   #define LINELEN 80
  188.   static char legend[LINELEN];
  189.